home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Software of the Month Club / Amiga General Interest Volume 210 (1995-03)(SOMC)(Disk 2 of 5)[SMC210C30I2].zip / Amiga General Interest Volume 210 (1995-03)(SOMC)(Disk 2 of 5)[SMC210C30I2].adf / MathScript / Install < prev    next >
Text File  |  1995-06-02  |  11KB  |  207 lines
  1. (IF (EXISTS "MathScript.key" (NOREQ))
  2.     (SET key 1)
  3.     (SET key 0)
  4. )
  5.  
  6. (SET MathScript_version "2.1")
  7.  
  8. (IF (= @language "deutsch")
  9. (
  10. (SET languagehelp "Ab OS 2.1 kann MathScript auf Ihre Muttersprache lokalisiert werden. Englisch is eingebaut and somit immer verfügbar.")
  11. (SET formulahelp "Hiermit werden einige Beispiel-Formeln in Ihr \"Formulas\" Verzeichnis kopiert.")
  12. (SET iconhelp "Sie können zwischen zwei Arten von Icons wählen: Standard Icons und MagicWB Icons.\nMagicWB installiert achtfarbige Icons, die zu den Original-MagixWB Icons passen.\nBenutzen Sie diese Option nur, wenn Sie MagicWB auch wirklich auf Ihrem System installiert haben!\n\nMagicWB ©Copyright Martin Huttenloher")
  13. (SET startuphelp "MathScript benötigt ein Assign, um korrekt laufen zu können. Wenn Sie \"Fortfahren\" anwählen, wird ein Eintrag in Ihre User-Startup gesetzt, so daß dieses Assign bei jedem Booten erstellt wird.")
  14. (SET docshelp "Das MathScript-Packet beinhaltet AmigaGuide Dokumente in den folgenden Sprachen:\nenglish\ndeutsch")
  15. (SET install_type_help "Wenn Sie bereits eine frühere Version von MathScript vollständig installiert haben, wählen Sie \"Update\", sonst \"Vollständige Installation\". ")
  16. (SET postlib_help "Hiermit wird die post.library (68000 Version) in Ihr Libs: Verzeichnis kopiert.\nDiese wird benötigt!")
  17. (SET install "MathScript wurde auf Ihrem Rechner gefunden! Welche Art der Installation wollen Sie?")
  18. (SET install_type_choice1 "Vollstängide Installation")
  19. (SET install_type_choice2 (CAT "Update (Wenn installierte Version < " MathScript_version ")"))
  20. (SET install_type_choice3 (CAT "Nur Keyfile (Wenn installierte Version = " MathScript_version ")"))
  21. (SET zieltext "Wo soll das Verzeichnis \"MathScript\" erstellt werden?")
  22. (SET install_post "Post.library installieren? (68000 version)")
  23. (SET lang "Welche zusätzlichen Sprachen sollen installiert werden?")
  24. (SET apps "Mit welchen Anwendungen wollen Sie MathScript benutzen?")
  25. (SET doclang "In welcher Sprache soll die Anleitung installiert werden?")
  26. (SET icon_type "Was für Icons sollen installiert werden?")
  27. (SET examples "Sollen die Beispiel-Formeln installiert werden?")
  28. (SET userstartup "Assigns 'MathScript:' und 'PSFonts:' werden benötigt. Sollen diese zu Ihrer User-Startup hinzugefügt werden?")
  29. )
  30. (
  31. (SET languagehelp "Beginnig with OS 2.1 MathScript can be localized to your local language. English is built-in and so always available.")
  32. (SET formulahelp "This will copy some example formulas to your \"Formulas\" directory")
  33. (SET iconhelp "You can choose between two kinds of icons: Standard icons and MagicWB icons.\nMagicWB installs 8-color icons styled like the original MagicWB icons.\nOnly use this option if you have MagicWB installed to your system.\n\nMagicWB ©Copyright Martin Huttenloher") 
  34. (SET startuphelp "MathScript needs an assign pointing to its directory to operate correctly. By selecting PROCEED an assign will be added to your User-Startup file to make this assign everytime you boot")
  35. (SET docshelp "The MathScript package includes AmigaGuide Documents in the following languages:\nenglish\ndeutsch")
  36. (SET install_type_help "If you have a previous version of MathScript installed completely (!), select \"Update\" else \"Full Installation\"!")
  37. (SET postlib_help "This copies the post.library (68000 version) to your Libs: directory\nIt is required!")
  38. (SET install "MathScript has been detected on your system! Which type of Installation do you want?")
  39. (SET install_type_choice1 "Full Installation")
  40. (SET install_type_choice2 (CAT "Update (if installed version < " MathScript_version ")"))
  41. (SET install_type_choice3 (CAT "Install keyfile (if installed version = " MathScript_version ")"))
  42. (SET zieltext "Where shall the directory 'MathScript' be created?")
  43. (SET install_post "Install post.library? (68000 version)")
  44. (SET lang "Which additional languages shall be installed?")
  45. (SET apps "Which applications do you want to use with MathScript?")
  46. (SET doclang "In which language shall the Doc files be installed?")
  47. (SET icon_type "Which icons shall be used?")
  48. (SET examples "Shall the example formulas be installed?")
  49. (SET userstartup "Assigns called 'MathScript:' and 'PSFonts:' are needed to use the program. Shall they be added to your User-Startup?")
  50. ))
  51.  
  52.  
  53.  
  54. (SET install_type 0)
  55.  
  56. (IF (EXISTS "MathScript:MathScript" (NOREQ))
  57.         (
  58.         (if (= key 1)
  59.             (SET install_type (ASKCHOICE (PROMPT install) (CHOICES install_type_choice1 install_type_choice2 install_type_choice3) (HELP install_type_help) (DEFAULT 1)))
  60.             (SET install_type (ASKCHOICE (PROMPT install) (CHOICES install_type_choice1 install_type_choice2) (HELP install_type_help) (DEFAULT 1)))
  61.             )
  62.         ))
  63.  
  64. (IF (= install_type 2)
  65. (
  66. (SET ziel "MathScript:")
  67. (SET @defaul-dest ziel)
  68. (COPYFILES (SOURCE "MathScript.key") (DEST ziel))
  69. (EXIT)
  70. ))
  71.  
  72.  
  73.  
  74.  
  75. (IF (= install_type 1)
  76. (
  77. (SET ziel "MathScript:")
  78. (SET @default-dest ziel)
  79. (RUN "delete MathScript:docs ALL")
  80. (RUN "delete MathScript:icons ALL")
  81. (MAKEDIR "MathScript:Docs")
  82. )
  83. (
  84. (SET ziel (ASKDIR (PROMPT zieltext) (HELP @askdir-help) (DEFAULT @default-dest) ))
  85. (SET ziel (TACKON ziel "MathScript"))
  86. (SET @default-dest ziel)
  87. (MAKEDIR ziel)
  88. (MAKEDIR (TACKON ziel "rexx"))
  89. (MAKEDIR (TACKON ziel "Formulas") (INFOS))
  90. (MAKEDIR (TACKON ziel "icons") (INFOS))
  91. (MAKEDIR (TACKON ziel "Docs") (INFOS))
  92. (MAKEDIR (TACKON ziel "Catalogs"))
  93. ))
  94.  
  95. (COPYFILES (SOURCE "MathScript") (DEST ziel) (INFOS))
  96. (COPYFILES (SOURCE "fonts") (ALL) (Dest (TACKON ziel "fonts")))
  97. (COPYFILES (SOURCE "init.ps") (DEST ziel))
  98. (COPYFILES (SOURCE "metrics") (DEST ziel))
  99. (COPYFILES (SOURCE "PSFont") (DEST ziel))
  100. (COPYFILES (SOURCE "MathScript.prefs") (DEST ziel))
  101. (COPYLIB (SOURCE "post.library") (DEST "Libs:") (HELP postlib_help) (CONFIRM 2) (PROMPT install_post))
  102. (if (= key 1)
  103.         (COPYFILES (SOURCE "MathScript.key") (DEST ziel)))
  104.  
  105.  
  106.  
  107. (if (>= (SUBSTR (GETENV "Workbench") 0 2) 38)   ; ab OS 2.1
  108.         (
  109.         (SET sprachen (ASKOPTIONS (PROMPT lang) (HELP languagehelp)
  110.                 (CHOICES "deutsch" "français" "svenska" "suomi" "dansk") ))
  111.  
  112.         (if (IN sprachen 0)
  113.                 (COPYFILES (SOURCE "Catalogs/deutsch/MathScript.catalog") (DEST (TACKON ziel "Catalogs/deutsch"))))
  114.         (IF (IN sprachen 1)
  115.                 (COPYFILES (SOURCE "Catalogs/français/MathScript.catalog") (DEST (TACKON ziel "Catalogs/français"))))
  116.         (if (IN sprachen 2)
  117.                 (COPYFILES (SOURCE "Catalogs/svenska/MathScript.catalog") (DEST (TACKON ziel "Catalogs/svenska"))))
  118.         (if (IN sprachen 3)
  119.                 (COPYFILES (SOURCE "Catalogs/suomi/MathScript.catalog") (DEST (TACKON ziel "Catalogs/suomi"))))
  120.         (if (IN sprachen 4)
  121.                 (COPYFILES (SOURCE "Catalogs/dansk/MathScript.catalog") (DEST (TACKON ziel "Catalogs/dansk"))))
  122.              
  123.  
  124.  
  125.  
  126.         (COPYFILES (SOURCE "Catalogs/readme") (DEST (TACKON ziel "Catalogs")))
  127.         (COPYFILES (SOURCE "Catalogs/newlanguage.ct") (DEST (TACKON ziel "Catalogs")))
  128.         (COPYFILES (SOURCE "Catalogs/MathScript.cd") (DEST (TACKON ziel "Catalogs")))
  129.         )
  130. )
  131.  
  132. (SET apps (ASKOPTIONS (PROMPT apps) (HELP apphelp) (CHOICES "FinalWriter")))
  133. (IF (IN apps 0)
  134.         (
  135.         (COPYFILES (SOURCE "Rexx/OpenMathScript.ms") (DEST (TACKON ziel "Rexx")))
  136.         (COPYFILES (SOURCE "Rexx/InsertFormula.ms") (DEST (TACKON ziel "Rexx")))
  137.         (COPYFILES (SOURCE "Rexx/CloseMathScript.ms") (DEST (TACKON ziel "Rexx")))
  138.         )
  139. )
  140.  
  141. (IF (EXISTS "sys:utilities/Multiview")
  142.         (SET def-tool "SYS:Utilities/Multiview")
  143.         (SET def-tool "SYS:Utilities/AmigaGuide")
  144. )
  145. (SET docs (ASKCHOICE (PROMPT doclang) (HELP docshelp)
  146.         (CHOICES "english" "deutsch")))
  147.  
  148. (IF (= docs 0)
  149.         (
  150.                 (COPYFILES (SOURCE "Docs/english/MathScript.guide") (DEST (TACKON ziel "Docs")) (INFOS))
  151.                 (TOOLTYPE (DEST (TACKON ziel "Docs/MathScript.guide")) (SETDEFAULTTOOL def-tool))
  152.                 (IF (IN apps 0) 
  153.                         (
  154.                         (COPYFILES (SOURCE "Docs/english/FinalWriter.guide") (DEST (TACKON ziel "Docs")) (INFOS))
  155.                         (TOOLTYPE (DEST (TACKON ziel "Docs/FinalWriter.guide")) (SETDEFAULTTOOL def-tool))
  156.                         ))
  157.         ))
  158. (IF (= docs 1)
  159.         (
  160.                 (COPYFILES (SOURCE "Docs/deutsch/MathScript.guide") (DEST (TACKON ziel "Docs")) (INFOS))
  161.                 (TOOLTYPE (DEST (TACKON ziel "Docs/MathScript.guide")) (SETDEFAULTTOOL def-tool))
  162.                 (IF (IN apps 0) 
  163.                         (
  164.                         (COPYFILES (SOURCE "Docs/deutsch/FinalWriter.guide") (DEST (TACKON ziel "Docs")) (INFOS))
  165.                         (TOOLTYPE (DEST (TACKON ziel "Docs/FinalWriter.guide")) (SETDEFAULTTOOL def-tool))
  166.                         ))
  167.  
  168.         ))
  169. (COPYFILES (SOURCE "Docs/Changes") (DEST (TACKON ziel "Docs")) (INFOS))
  170.  
  171. (SET icon (ASKCHOICE (PROMPT icon_type) (CHOICES "Standard" "MagicWB") (HELP iconhelp)))
  172. (IF (= icon 0)
  173.         (
  174.         (COPYFILES (SOURCE "icons/def_FML.info") (DEST (TACKON ziel "icons")) (INFOS) )
  175.         (COPYFILES (SOURCE "icons/def_PS.info") (DEST (TACKON ziel "icons")) (INFOS) )
  176.         (COPYFILES (SOURCE "icons/def_EPS.info") (DEST (TACKON ziel "icons")) (INFOS) )
  177.         (COPYFILES (SOURCE "icons/def_IFF.info") (DEST (TACKON ziel "icons")) (INFOS) )
  178.         (COPYFILES (SOURCE "icons/def_TIFF.info") (DEST (TACKON ziel "icons")) (INFOS) )
  179.         (COPYFILES (SOURCE "icons/MathScript.info") (DEST ziel ) (INFOS) )
  180.         )
  181.         (
  182.         (COPYFILES (SOURCE "icons/def_FML8.info") (DEST (TACKON ziel "icons")) (NEWNAME "def_FML.info") (INFOS) )
  183.         (COPYFILES (SOURCE "icons/def_PS8.info") (DEST (TACKON ziel "icons")) (NEWNAME "def_PS.info") (INFOS) )
  184.         (COPYFILES (SOURCE "icons/def_EPS8.info") (DEST (TACKON ziel "icons")) (NEWNAME "def_EPS.info") (INFOS) )
  185.         (COPYFILES (SOURCE "icons/def_IFF8.info") (DEST (TACKON ziel "icons")) (NEWNAME "def_IFF.info") (INFOS) )
  186.         (COPYFILES (SOURCE "icons/def_TIFF8.info") (DEST (TACKON ziel "icons")) (NEWNAME "def_TIFF.info") (INFOS) )
  187.         (COPYFILES (SOURCE "icons/MathScript8.info") (DEST ziel) (NEWNAME "MathScript.info") (INFOS))
  188.         )
  189. )
  190.  
  191. (IF (ASKBOOL (PROMPT examples) (HELP formulahelp))
  192.         (COPYFILES (SOURCE "Formulas") (DEST (TACKON ziel "Formulas")) (ALL)))    
  193.  
  194.  
  195.  
  196.  
  197. (if (= install_type 0)
  198. (
  199. (STARTUP "MathScript" (PROMPT userstartup) (HELP startuphelp) (COMMAND (CAT "Assign MathScript: " ziel) "\n" (CAT "Assign PSFonts: " (CAT "MathScript: " "add"))) )
  200. (MAKEASSIGN "MathScript" ziel)
  201. (MAKEASSIGN "PSFonts" ziel)
  202. )
  203. )
  204.  
  205. (EXIT)
  206.  
  207.